!% -SD !=== Constant Story "Rolled"; Constant Headline "^Interactive Fiction Writing Month Week 1 ^by Shannon Prickett.^"; ! This work is licensed under a Creative Commons Attribution 3.0 United States License. !=== Include "Parser"; Include "VerbLib"; !=== Object head_six "Head of Lane 6" with description "A set of dingy orange hard plastic chairs surround a console which certainly looked sophisticated thirty years ago. There's a thick odor of wax coating the air. You hear the din of plastic impacting wood. South of here is a large open area which connects the head of the lanes while the lane continues north to where the pins are placed.", name 'dingy' 'orange' 'plastic' 'chairs' 'console' 'wax' 'air' 'sound' 'wood', s_to roaming, n_to midlane_six, e_to "That's where the wall is. Pretty sturdy one, too.", has light; Object ball "bowling ball" with description "It weighs 12 pounds and has deceptively snug fingerholes. It's made of black plastic.", name 'ball' 'plastic' 'black', before [; Drop: print_ret "It's stuck to your hand!"; ], has worn; Object cellphone "cell phone" head_six with description "Something about the building structure completely blocks any outcalling calls you attempt. You do intermittently receive garbled SMS texts from time to time, saying things like 'LOL just accidentally a whole' or 'call me pronto at 334--0FB0MB'.", name 'phone' 'cell', has ; Object jacket "jacket" head_six with description "A comfortable extra layer since it would be sundown before you planned to finish bowling. It's yours.", name 'jacket', before [; PutOn: if (ball has worn) print_ret "Not while you're holding the bowling ball."; ], after [; Take: if (ball has worn) give jacket ~worn; return true; ], has worn; Object midlane_six "Middle of Lane 6" with description "The floor is extremely slick and decorated with parallel lines and arrows all pointing north, toward the pin end of the lane. South of here is where bowlers stand to throw.", name 'floor' 'lines' 'arrows', s_to head_six, n_to butt_six, e_to "That's where the wall is. Pretty sturdy one, too.", cant_go "You're already in an awkward location, don't make it worse.", has light; Object butt_six "Backend of Lane 6" with description "There's a scary looking pit to the north which has taken much abuse from speeding balls and spinning pins. An apparatus hangs above it, poised to place another set of pins into place. South of here is the place bowlers are expected to be.", name 'pit' 'apparatus' 'pins', s_to midlane_six, n_to "Nothing good can come of that.", e_to "That's where the wall is. Pretty sturdy one, too.", has light; Object pin_three "3 pin" butt_six with description "One of an army of identical bowling pins, from the three position of a set of pins.", name 'three' 'pin', has ; Object pin_five "5 pin" butt_six with description "One of an army of identical bowling pins, from the five position of a set of pins.", name 'five' 'pin', has ; Object pin_seven "7 pin" butt_six with description "One of an army of identical bowling pins, from the seven position of a set of pins.", name 'seven' 'pin', has ; Object roaming "Broad open area behind the lanes" with description "The air is filled with raucous laughter, clattering pins and the smell of beer and old smoke. A well worn carpet, now patterned in stains, connects the lanes along the north side to the counter at the south side. Some sort of limbo contest at Lane 3 means that you can presently reach three lanes. 4, to the northwest; 5, to the north; and 6, to the northeast. The restrooms are to the southeast, fortunately. The service counter is to the south.", name 'air' 'laughter' 'pins' 'smell' 'beer' 'smoke' 'carpet' 'stains', ne_to head_six, n_to head_five, nw_to head_four, se_to facilities, s_to counter, has light; Object head_five "Head of Lane 5" with description "A set of dingy yellow hard plastic chairs surround a console which certainly looked sophisticated thirty years ago. There's a thick odor of wax coating the air. You hear the din of plastic impacting wood. South of here is a large open area which connects the head of the lanes while the lane continues north to where the pins are placed.", name 'dingy' 'yellow' 'plastic' 'chairs' 'console' 'wax' 'air' 'sound' 'wood', s_to roaming, n_to midlane_five, has light; Object midlane_five "Middle of Lane 5" with description "The floor is extremely slick and decorated with parallel lines and arrows all pointing north, toward the pin end of the lane. South of here is where bowlers stand to throw.", name 'floor' 'lines' 'arrows', s_to head_five, n_to butt_five, cant_go "You're already in an awkward location, don't make it worse.", has light; Object butt_five "Backend of Lane 5" with description "There's a scary looking pit to the north which has taken much abuse from speeding balls and spinning pins. An apparatus hangs above it, poised to place another set of pins into place. South of here is the place bowlers are expected to be.", name 'pit' 'apparatus' 'pins', s_to midlane_five, n_to "Nothing good can come of that.", has light; Object head_four "Head of Lane 4" with description "A set of dingy green hard plastic chairs surround a console which certainly looked sophisticated thirty years ago. There's a thick odor of wax coating the air. You hear the din of plastic impacting wood. South of here is a large open area which connects the head of the lanes while the lane continues north to where the pins are placed.", name 'dingy' 'green' 'plastic' 'chairs' 'console' 'wax' 'air' 'sound' 'wood', s_to roaming, n_to midlane_four, has light; Object midlane_four "Middle of Lane 4" with description "The floor is extremely slick and decorated with parallel lines and arrows all pointing north, toward the pin end of the lane. South of here is where bowlers stand to throw.", name 'floor' 'lines' 'arrows', s_to head_four, n_to butt_four, cant_go "You're already in an awkward location, don't make it worse.", has light; Object butt_four "Backend of Lane 4" with description "There's a scary looking pit to the north which has taken much abuse from speeding balls and spinning pins. An apparatus hangs above it, poised to place another set of pins into place. South of here is the place bowlers are expected to be.", name 'pit' 'apparatus' 'pins', s_to midlane_four, n_to "Nothing good can come of that.", has light; Object counter "Service Counter" with description "A sturdy slab of wood with dusty traunslucent plastic windows inset. Loaner shoes and collateral shoes are visible in it. To the north is the access to the bowling lanes, to the east the restrooms.", name 'slab' 'wood' 'plastic' 'windows', n_to roaming, e_to facilities, has light; Object spray "shoe sterilizing spray" counter with description "A powerfully astringent spray in a handy can.", name 'spray' 'can', has ; Object crane_game "crane toy-fishing game" counter with description "A clear plastic box containing a single sparse layer of stuffed animals with glum expressions. A battered joystick is used to try to position a claw over a prize before the crane drops and retracts, delivering the bounty through a chute on the side of the box.", name 'plastic' 'box' 'game' 'crane' 'claw' 'chute' 'animal' 'stuffed', has static; Object shoes "paired shoes neatly stored" counter with description "Many of them worn from endless hours spent on the lanes, the others a hodge-podge of shoes left as collateral in exchange for bowling shoes.", name 'shoes' 'collateral', has scenery; Object attendant "bowling alley staffer" counter with description "Slouched over the counter reading an issue of Guns & Ammo, laboriously sounding out the longer words and steadfastly ignoring you.", name 'attendant' 'staffer' 'issue' 'guns' 'ammo', has animate; Object facilities "Restrooms and Amenities" with description "A much abused men's room and a seemingly rarely used ladies's room occupy this corner of the building. Other than the anticipated, it contains soap dispensing devices and a coin-operated toy dispenser. The staffed counter is to the west and the lanes are to the north.", name 'men^s' 'room' 'ladie^s' 'bathroom', n_to roaming, w_to counter, has light; Object soap_dispenser "soap dispenser" facilities with description "Standard issue push on a plastic bit, have a decent chance of something soap-like being dispensed, device.", name 'plastic' 'soap' 'device' 'dispensing', has scenery; Object toy_dispenser "toy dispenser" facilities with description "Standard issue put in a coin, have a decent chance of something toy-like being dispensed, device.", name 'plastic' 'toy' 'device' 'coin-operated', has scenery; Object note "note on pink paper" facilities with description "Curly purple ink on pink paper but sadly illegible hand-writing mar whatever message it's meant to convey.", name 'paper' 'note' 'pink' has ; !=== [ Initialise; move ball to player; location = head_six; ]; !=== Include "Grammar";